home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / scope / 001-025 / scopedisk2 / vt100 / logon < prev    next >
Encoding:
Text File  |  1995-03-18  |  860 b   |  58 lines
  1. DIAL:
  2.     DELAY 3
  3.     SEND "ATdt555-1221^M"
  4.     ON "CONNECT" GOTO CONN
  5.     DELAY 20
  6.     SEND " "
  7.     DELAY 1
  8. #
  9.     SEND "ATdt555-1222^M"
  10.     ON "CONNECT" GOTO CONN
  11.     DELAY 20
  12.     SEND " "
  13.     DELAY 1
  14. #
  15.     SEND "ATdt555-1223^M"
  16.     ON "CONNECT" GOTO CONN
  17.     DELAY 20
  18.     SEND " "
  19.     DELAY 1
  20. #
  21.     SEND "ATdt555-1224^M"
  22.     ON "CONNECT" GOTO CONN
  23.     DELAY 20
  24.     SEND " "
  25.     DELAY 1
  26.     GOTO DIAL
  27. #
  28. CONN:
  29. #   Send CRs till I get a login: prompt.
  30.     SEND ^M
  31.     ON "login:" GOTO LOGIN
  32.     DELAY 3
  33.     GOTO CONN
  34. LOGIN:
  35. #  Send my username and my "password", reply to first prompt.
  36.     SEND "acs^M"
  37.     WAIT "assword:"
  38.     SEND "mypass^M"
  39.     WAIT "#?"
  40.     SEND "1^M"
  41.     WAIT "=> "
  42. #  Go to the source directory and send EVERYTHING then get off.
  43.     SEND "cd vt100src/rel2.8^M"
  44.     WAIT "=> "
  45.     SEND "wermit^M"
  46.     WAIT "mit>"
  47.     SEND "send *^M"
  48.     XPROTO KERMIT
  49.     RECF
  50.     DELAY 5
  51.     SEND "ex^M"
  52.     WAIT "=> "
  53.     SEND "logoff^M"
  54.     WAIT "NO CARRIER"
  55.     SEND "ATH^M"
  56.     EXIT VT100
  57.  
  58.